home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
sh9x
/
sh93b.d64
/
on error goto
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
727b
|
28 lines
100 REM *** ON ERROR UND GOTO X ***
101 DATA32,253,174,32,107,169,165,20
102 DATA164,21,133,247,132,248,169,116
103 DATA160,195,141,0,3,140,1,3,96,169
104 DATA139,160,227,141,0,3,140,1,3
105 DATA96,138,48,30,165,58,201,255
106 DATA240,27,134,2,165,57,164,58,133
107 DATA249,132,250,165,247,164,248
108 DATA133,20,132,21,32,163,168,76
109 DATA174,167,76,116,164,138,76,58
110 DATA164,32,253,174,32,138,173,32
111 DATA247,183,76,143,195
112 S=0:FORI= 50000 TO 50087 :READD
113 POKE I,D:S=S+D:NEXT
114 PRINT"DIE DATAZEILEN SIND"
115 IFS<>10886THENPRINT"FEHLERHAFT":STOP
116 PRINT"IN ORDNUNG":END
120 :
130 :
200 REM BEISPIEL FUER ON ERROR UND GOTO X
210 SYS50000,1000
220 INPUT"EINE ZAHL ";A
230 WU=SQR(A):PRINT"DIE WURZEL AUS"A"="WU
240 END
1000 PRINT"FEHLER NUMMER"PEEK(2)
1010 ZL=PEEK(249)+PEEK(250)*256-10
1020 SYS50076,ZL